home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)s6.d64 / boot auto (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  825b  |  34 lines
  1. 1 IFA=1THEN600
  2. 5 Y=-1:A=1
  3. 10 POKE53281,0:POKE53280,4:PRINT"[147]"
  4. 20 POKE54272+24,0
  5. 21 PRINT"                LOADING                 "
  6. 22 IFY<>-1THEN30
  7. 25 Y=-1:A=1:LOAD "0:I FAL*",8,1
  8. 30 IFY=0THENA=1:LOAD "0:OKLA*",8,1
  9. 40 IFY=1THENLOAD "0:BEAU*",8,1
  10. 45 IFY=2THENLOAD "0:IF YOU*",8,1
  11. 50 IFY=3THENLOAD "0:I CA*",8,1
  12. 60 IFY=4THENLOAD "0:MAKE*",8,1
  13. 70 IFY=5THENLOAD "0:YOU'*",8,1
  14. 80 IFY=6THENLOAD "0:DEAR*",8,1
  15. 90 IFY=7THENLOAD "0:HELL*",8,1
  16. 100 IFY=9THENLOAD "0:OH L*",8,1
  17. 110 IFY=10THENLOAD "0:ALABA*",8,1
  18. 120 IFY=11THENLOAD "0:MOUN*",8,1
  19. 130 IFY=12THENLOAD "0:HONK*",8,1
  20. 140 IFY=13THENLOAD "0:YOUR *",8,1
  21. 150 IFY=14THENLOAD "0:I SAW*",8,1
  22. 160 IFY=15THENLOAD "0:PAPE*",8,1
  23. 170 IFY=16THENLOAD "0:WABAS*",8,1
  24. 180 IFY=17THENLOAD "0:WELCO*",8,1
  25. 190 IFY=18THENLOAD "0:MOCKI*",8,1
  26. 200 IFY=19THENLOAD "0:ROSE*",8,1
  27. 600 SYS21350
  28. 610 FORX=1TO5:FORM=1TO3000:NEXTM:NEXTX
  29. 620 Y=Y+1:IFY>19THENY=-1
  30. 630 IFPEEK(3)<>85THEN630
  31. 640 PRINT"                 LOADING                 "
  32. 650 GOTO20
  33. 660 END
  34.